unit NPC;

interface

uses
  Classes, SysUtils, ini;

type

  TNPCObj = record
    NPCName: string;
  end;

  TNPC = Class
    NPC_Amount: integer;
    NPCObj: array of TNPCObj;
    NPC_ini: Tini;
    procedure Release;
    constructor Create;
    Destructor Destroy; override;
  end;

implementation

Destructor TNPC.Destroy;
begin
  Release;
  inherited Destroy;
end;

constructor TNPC.Create;
begin
  inherited;
  NPC_ini := Tini.Create;
end;

procedure TNPC.Release;
begin
  //
  NPC_ini.release;
end;

end.

